home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / e / speedtests / for.e < prev    next >
Text File  |  1999-06-14  |  304b  |  22 lines
  1. MODULE '*testspeed'
  2.  
  3. CONST LOTS_OF_TIMES=100000
  4.  
  5. DEF x
  6.  
  7. PROC main()
  8.   test({forendfor}, 'FOR & ENDFOR', LOTS_OF_TIMES)
  9.   test({fordo},     'FOR & DO',     LOTS_OF_TIMES)
  10. ENDPROC
  11.  
  12. PROC forendfor()
  13.   FOR x:=0 TO 100
  14.     Mul(13,4652)
  15.   ENDFOR
  16. ENDPROC
  17.  
  18. PROC fordo()
  19.   FOR x:=0 TO 10 DO Mul(13,4652)
  20. ENDPROC
  21.  
  22.